home *** CD-ROM | disk | FTP | other *** search
/ PC PowerPlay 46 / CDPowerplay46Disc2.iso / utils / xqxset55 / _SETUP.2 / Group3 / XQ MSO Options 1.xpl < prev    next >
Encoding:
XSetup plugin  |  1999-10-02  |  1.7 KB  |  50 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Office 97"
  5. "NAME"="General"
  6. "VERSION"="1.05"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable quick (no delay) scrolling in Word 97"
  9. "DESCRIPTION 1"="Normally when you move through a Word 97 document using the scroll bar the view doesn't update until you release the mouse button. With this hack, the document location is updated as you move the scroll bar with the mouse.  Checking "Enable quick (no delay) scrolling in Word 97 allows Word to scroll more quickly without taking time to show the scrolling effect. This is useful as a time saving feature if you disable it."
  10. "DESCRIPTION 1"="Please note that you need to restart Office so the changes can take effect."
  11. "AUTHOR"="Xteq Systems"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All rights reserved."
  13. "COMMENT 1"="For questions, comments, or suggestions contact info@xteq.com or visit http://www.xteq.com/"
  14. "COMMENT 2"=" "
  15.  
  16.  
  17. 'Declaration of some constants
  18. sV1="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Word\Options\LiveScrolling" 'STR: 1
  19.  
  20. sPCheck="HKCU\Software\Microsoft\Office\8.0\Word\"
  21. Sub Plugin_Initialize 
  22. if RegPathExists(sPCheck) then
  23.    i=RegReadValue(sV1)
  24.    if i=1 then SetUIElement 1,true
  25. else
  26.    Disable()
  27. end if
  28. END SUB
  29.  
  30. 'Called when the Plugin should validate the Data the user has entered
  31. SUB Plugin_CheckData(ElementIndex)
  32. END SUB
  33.  
  34. 'Called when the Plugin should apply the changes
  35. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  b=GetUIElement(1)
  37.  if b=true then
  38.     s="1"
  39.  else
  40.     s="0"
  41.  end if
  42.  Call RegWriteValue(sV1,s,1)
  43.  
  44.  
  45. END SUB
  46.  
  47. 'Called when the Plugin is about to be removed from memory
  48. SUB Plugin_Terminate
  49. END SUB
  50.